io Programmo 74/IOPROG_74.ISO/soft/Codice/Libro Visual Basic e Database/FormMain.vb

Text File | 2003-09-30 | 5.7 KB | 158 lines

Imports System.Data.SqlClient
Public Class FormMain
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.
    'Do not modify it using the code editor.
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents mnuScarico As System.Windows.Forms.MenuItem
    Friend WithEvents mnuRicercaDocumenti As System.Windows.Forms.MenuItem
    Friend WithEvents mnuClienti As System.Windows.Forms.MenuItem
    Friend WithEvents mnuFornitori As System.Windows.Forms.MenuItem
    Friend WithEvents mnuArticoli As System.Windows.Forms.MenuItem
    Friend WithEvents mnuCarico As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
        Me.mnuClienti = New System.Windows.Forms.MenuItem()
        Me.mnuFornitori = New System.Windows.Forms.MenuItem()
        Me.mnuArticoli = New System.Windows.Forms.MenuItem()
        Me.MenuItem6 = New System.Windows.Forms.MenuItem()
        Me.mnuCarico = New System.Windows.Forms.MenuItem()
        Me.mnuScarico = New System.Windows.Forms.MenuItem()
        Me.mnuRicercaDocumenti = New System.Windows.Forms.MenuItem()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem6})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuClienti, Me.mnuFornitori, Me.mnuArticoli})
        Me.MenuItem1.Text = "Anagrafica"
        '
        'mnuClienti
        '
        Me.mnuClienti.Index = 0
        Me.mnuClienti.Text = "Clienti"
        '
        'mnuFornitori
        '
        Me.mnuFornitori.Index = 1
        Me.mnuFornitori.Text = "Fornitori"
        '
        'mnuArticoli
        '
        Me.mnuArticoli.Index = 2
        Me.mnuArticoli.Text = "Articoli"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 1
        Me.MenuItem6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuCarico, Me.mnuScarico, Me.mnuRicercaDocumenti})
        Me.MenuItem6.Text = "Documenti"
        '
        'mnuCarico
        '
        Me.mnuCarico.Index = 0
        Me.mnuCarico.Text = "Carico"
        '
        'mnuScarico
        '
        Me.mnuScarico.Index = 1
        Me.mnuScarico.Text = "Scarico"
        '
        'mnuRicercaDocumenti
        '
        Me.mnuRicercaDocumenti.Index = 2
        Me.mnuRicercaDocumenti.Text = "Ricerca"
        '
        'FormMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(576, 462)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "FormMain"
        Me.Text = "Gestione MiniMarket"

    End Sub

#End Region

    Private Sub FormMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ObjConnection = New SqlConnection()
        ObjConnection.ConnectionString = "Initial Catalog=gestmarket;Data Source=localhost;Integrated Security=SSPI;"
        ObjConnection.Open()
    End Sub



    Private Sub mnuClienti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuClienti.Click
        Dim frmCliente As New FormCliente()
        frmCliente.MdiParent = Me
        frmCliente.Show()
    End Sub

    Private Sub mnuFornitori_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFornitori.Click
        Dim frmFornitore As New FormFornitore()
        frmFornitore.MdiParent = Me
        frmFornitore.Show()
    End Sub

    Private Sub mnuArticoli_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuArticoli.Click
        Dim frmArticolo As New FormArticolo()
        frmArticolo.MdiParent = Me
        frmArticolo.Show()
    End Sub

    Private Sub mnuCarico_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCarico.Click
        Dim frmDocumento As New FormDocumento()
        frmDocumento.MdiParent = Me
        frmDocumento.MioShow("Carico")
    End Sub

    Private Sub mnuScarico_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuScarico.Click
        Dim frmDocumento As New FormDocumento()
        frmDocumento.MdiParent = Me
        frmDocumento.MioShow("Scarico")
    End Sub

    Private Sub mnuRicercaDocumenti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRicercaDocumenti.Click
    End Sub


    Private Sub FormMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        ObjConnection.Close()
    End Sub
End Class